home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / UTIL / FILEUTIL / UNIXUTIL / perl / dirs < prev    next >
Text File  |  1993-06-10  |  239b  |  13 lines
  1.  
  2. # vi:si:ts=4:sw=4
  3. # Implements pushd using a system Variable (DIRSTACK) to store the stack.
  4.  
  5. die "Usage: dirs\n" unless ($#ARGV == -1);
  6.  
  7. @dirs = split(' ', $ENV{"DIRSTACK"});
  8. print "Directory stack:\n";
  9. foreach (@dirs)
  10. {
  11.     print "$_\n";
  12. }
  13.